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NIM for PET 

Jim Butterfield, Toronto 

The AND, OR, and NOT relationships can be used for logical 
tests such as IF A 9 OR B^O . . They ccn also be used for manipula¬ 
tion of binary numbers. For example, PRINT 7 AND 10 produces 2. 
If this isn't clear, you need to brush up on binary numbering and 
logical operators. In the meantime, you can still play NIM. 

The "missing" logical operator, EOR, has been created as FNE. 
(line 110). 

90 PRINT "cs NIM J. BUTTERFIELD" :IQ=.9 
100 N-3 set number of piles, e.g. 3 

110 DEF FNE(X)=(A(J) OR E) AND (NOT (A(J) AND E)) 

exclusive OR 

120 DIM A(N): INPUT "WANT INSTRUCTION$":Z$ 

130 IF LEFT$(Z$, I )=" N" GOTO 200 

140 ? "PICK FROM ' ; N;"PILES -AS MANY ITEMS AS" 

150 ?"YOU LIKE FROM ANY PILE cd THEN I PLAY cd" 

160 ?"YOU WIN IF YOU GET THE LAST ITEM cd" 

170 ?"GOOD LUCK! cd HIT ANY KEY TO START" 

180 GET ZS:IF Z5-"" GOTO 180 
200 FOR J=1 TO N 

205 A(J)-INT(RND(1)‘1 2t-5) generate random piles 

210 IF J=1 GOTO 240 K 

220 FOR K=l TO J-1:IF A(J)=A(K) GOTO 205 avoid duplicates 
230 NEXT K r 

240 NEXT J:M~0 

300 T=0: ? "cs"; each move starts here 

310 FOR J-l TO N : ? CHRS(J+64) / , '- ,, ,A(J):T=TM(J) 

print and total piles 

320 NEXT J: IF T=0 GOTO 700 if all gone, game over 

330 M=l-M: IF M=0 GOTO 500 PFT's move 

360 ?"cd TAKE YOUR PICK — " 

370 INPUT ,, PILE";ZS 

380 P^ASC(Z$}-64:IF P< 1 OR P> N GOTO 370 
390 INPUT "TAKE HOW MANY";Z 

400 IF Z> A(P) THEN ? "THERE ARE ONLY";A(P) : GOTO 370 
410 IF Z < 1 or Z <> INT(Z) THEN ? "Y/HA GOTO 370 

illegal quantity 

420 A(P) - A(P)-Z : GOTO 300 

500 E-0 : F-0 

510 FOR J=1 TO N 

520 E=FNE(0): IF A(J)> F THEN F=A(J): J1 = J form EOR, all piles 

530 NEXT J 

540 FOR J= 1 TO N 

550 R=FNE(0): IF RC=A(J) GOTO 600 find a move 
560 NEXT J : STOP no moves? something wrong 

600 IF R=A(J) OR IQ > RND(l) THEN J-Jl :R-A{J)-1 dumb move? 
610 ?"l PICK";A(J)-R ; "UNITS FROM PILE ";CHR(J+64) 

620 A(J)-R: FOR J=1 TO 2000: NEXT J: GOTO 300 

pause before next display 

700 W$="YOU":IF M=0 THEN W$="l" 

7,0 ?"*** r";W$; M WIN," 

720 IF M=0 GOTO 740 

730 IQ=IQ*IQ : ? "I'LL PLAY BETTER"; : GOTO 750 
740 IQ=SQR(IQ) : ? "I'LL TAKE IT EASIER"; 

750 ? " NEXT GAME... cd" : INPUT "ANOTHER GAME";ZS 
760 IF LEFT$(Z$,1)<>"N" GOTO 200 

cs=clear screen cd^cursor down r-reverse 


General Notes 

Commodore recently began sending a "Revised Introduction to 
your PET" with PET shipments. The bcoklef is about the same as the 
previous version, but does omit the memory map and the edge con¬ 
nector designations. I hope Commodore gets some decent documen¬ 
tation out soon. I know they can do it -- the KIM and 6500 Hard¬ 
ware and Programming manuals are very good. 

The PET main circuit board has changed several times since last 
year. Commodore has been using 2114 RAM's instead of their own 
6550 chip, and is apparently going to be an alternate source for the 
Intel memory 1C (the Commodore version will be the 6114, with 
additional plans to produce a 6316 16K RAM as an alternate source 
for the Intel 2316). 

The Commodore printer (PET Formatting Printer) should be avail¬ 
able in late July. Although the specifications are a little sketchy, 
the unit appears to be an excellent value at $595. Features include 
80 column width on 8 1/2 inch paper at 120 characters/second. All 
PET characters (upper case, lower case, and graphics) will print 
using a 7 by 8 dot matrix print head. The printer will be assigned 
physical address 4 on the IEEE-488 bus. The secondary address 
specified in the OPEN for the device will be used by the printer to 
determine how the data stream is processed. Some of the options are: 
print data exactly as received; print data per format; set up a format; 
and set number of lines per page. Characters may be double width 
(7 by 16). Formatting includes left, right, or decimal point align¬ 
ment, as well as loading zero, floating dollar sign, and trailing 
minus sign. 

Nothing much is happening as far as correction of system bugs 
with the exception of losing the cursor when hitting return. This can 
be corrected with a ROM replacement at a cost of $10. 

Commodore Software still isn't being distributed yet, although 
an announcement was mailed in April indicating the first batch re¬ 
lease was imminent. 

Several users have written that their keytop surfaces are wearing 
off on the more heavily used keys. Does anyone know a preventive 
measure for this? Also, many questions about adding a previously 
saved routine on cassette to a program in memory. Anyone have any 
ideas on this? 

In general, comments about the PET have been very favorable. 

In fact, the response range seems to be favorable ro ecstatic, with 
no one yet indicating they were dissatisfied. 

Software 

James Johnson, 9304 Emorv Grv. Road, Gaithersburg, MD 20760 
has a Blackjack program whicn he says permits 5 players, double 
down, split, and uses full PET graphics. He will sell this program 
on cassette for $5. 

C.M. Stuart & Co., 5115 Menefee Dr. Dallas, TX 75227 has 
developed a Casino Simulation Fbckage containing Blackjack, 
Baccarat, Craps, and Roulette. All options available at the Casino 
of the MGM Grand Hotel in Las Vegas have been incorporated in 
the programs, which are available on cassette including complete 
rules at S9.95 each or S25 for all four. 

Pcnninsula School Computer Project, Penninsula Way, Menlo 
Park, CA 94025 is selling 3 program tapes: (1) PILOT (CAI lan- 


(ed. note: NIM demonstrates several aspects of PET BASIC in addition 
to the logical operators. Jim used CHRS in line 310 to convert from 
numeric 1, 2, or 3 to A, B, or C. The reverse conversion ASC was 
used to translate alphabetic entry 1, 2, or 3 (if N=3). The program 
also cleverly adjusts its skill by changing the variable IQ (what else?)] 
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guoge) and 5 sample programs 519.95 \Z) Renumber, Lemon, Kal¬ 
eidoscope, WSFN $14.95 (3) QUEST,DRAW (very nice expanded 
version) $9.95. Write them with SASE for order form. 

Andy Fraley, 1753 York Rd., Reading, PA 19610 has four 
action games with graphics for sale at $5.95 each. They are 
Seawolf, Dogfight, Bomber, and Indy 500. 

Several people suggested that we publish a PET software directory 
If there is sufficient interest, wo will attempt it. Mr. Elwood 
Anderson of Channel Data Systems, Goleta, CA suggested c format 
to include: cassette name; program names; publisher; author; price; 
memory req.; manual included; sold through (author, publisher, 
dealers, etc.); and brief program abstract. If you think this is a 
good idea, send your program info. We will publish as often as 
necessary to keep the listings current. 


TIME -- large clock display 

BIORYTHM — Kenneth Finn - very concise code - plots with only 
30 BASIC statements 

KING — business-social simulation or game 

BREAKOUT — simple version of the arcade game 

SWATPLOT — F. Campbell (see V. 1 Issue 3) - plots in 80x50 format 

$2 for the first program including cassette and postage $1 for each 
additional — max 4 per tape. Most of the programs will be isted 
In this newsletter, so the programs on tape service is available only 
to save you key entry time. It is priced to hopefully cover the cost 
of a part time person to copy and mail the tapes. 

If you have a program to add to the list, please send it on tape. 
W© will copy it and return your tape with several other programs. 


Hardware 

International Technical Systems, Inc., Bov 264, Woodbridge, VA 
22194 announced a PEM-8K memory expansion module at $279. 

The 8K unit is assembled with case, power supply. and connecting 
hardware. ITS will include a 10K Mathematical/Financial software 
package with initial orders for PEM-8K. 

Otherware 

MJ Salisbury has a carrying case for PET which includes perma¬ 
nent foam cushioning material, removable hinged cover, and lock¬ 
ing latches. $49.50 + shipping (COD). CASE, Box 6633, Oxnard, 
CA 93030. 

Microsette , 777 Palomar Ave., Sunnyvale, CA 94086 has 
blank C-10 tapes in plastic box. Send $1 .00 for sample tape. 

TIS, Box 921, Los Alamos, NM 87544 has a series of workbooks 
on using the PET computer. Write them for further information. 

Francis T. Chambers, Rock House, Ballycroy, Westport, Co. 
Mayo, Ireland has a winning strategy for Othello (Reversi). Many 
of you have seen the Othello program from the BYTE article, and 
know it needs help to play well. Frank has written a complete 
description of his method, and will air mail a copy for $5. 


Software Exchange 


Carl Bach, 1015 Saturn Springs Dr., Garland, TX 75041 has 
many game programs on cassette to exchange. 

Microcomputer Resource Center, 5150 Anton Drive Roam 212, 
Madison, Wl 53719 is running a PET software excl'ange. Write 
them for submission format. 


Errors in previous issue (VI, Issue 3) 

page I — line 12 in first paragraph should read 98 rather than 248. 
page 9 — the PET Character Code table was furnished by Frank 
Campbell. The original sent by Frank did not reproduce well, so 
we retyped it at the last minute. In so doing, we switched two 
keyboard symbols in the third column. The 103/39 and the 108/44 
symbols should be interchanged. 

Also, apologies to Jim Butterfield — his Bagels program on 
page 6 has no indication of the continuation on page 11. 


Programs on Tape 


SEQUENCE — you have to sort c character list 
STATECAPS — quiz on states and capitals from 3/78 Kilobaud 
RACETRACK — see lisring in V.l, Issue 3 - RE McGee 
DEFLECTION — F. Dunlap 

ADDITION — math drill — F. Dunlap, C. Pitcairn 

OTHELLO — from 9/77 BYTE 

OTHELLO for 2 — F. Dunlap 

BAGELS -- like Mastermind - J. Butterfield . 

Cash Flow/Return on Investment - R. Goldsmith 
STAR TREK 

BLACKJACK — D. Liem - nice graphics, humorous potter by dealer 
LIFE - 40*25 F. Covitz 
LIFE — 64*64 F. Covitz 

FILE LIST & SORT — from Kilobaud. Modified by Robert Harvey 

TRAP — trap the PET, avoid being trapped 

Super Mastermind -- JR Marcou 

Lunar Lander — JR Marcou 

NIM — J Butterfield 

QUBIC - 3D TIC-TAC-TOE 

LIST MEMORY — Charles Combs 

Machine Language Monitor — a good version - similar to the one 
Commodore will be sending 


********** ***. ,+■***»*****+************ ****** *********** ***** 


Sensing Keys 

Several people wrote that location 515 contained a key identifier 
code indicating whether a key is depressed during each monitor 
scon cycle. The value is I to 80 depending on the key, or 255 if 
no key is depressed . 

10 K=PEEK (515): IF K-255 GOTO 10 
Shift key depression can also be detected by checking location 
515 (value is 1 if the key is depressed, 0 if it is not). 

PET Matrix-Decoded Keyboard 

Value of key = row value + column value 
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ANNOUNCING 


THE 

commodore 

PET 



personal computer 

Now Available in the Washington D.C. Area From: 
The 

COTPUTER SVSTEmS STORE 

TYSONS CORNER VA. NEAR HOLIDAY INN 
1984 Chain Bridge Rd. ( McLean, VA 22101 
703 - 821-8333 


A FULL UNE COMPUTER STORE SALES - SERVICE - SOFTWARE" 




BETSI PET to S-100 Interface Motherboard SI 49 

Four slot motherboard - On board sockets 
and decoding circuitry for 8K PROM - 
Includes all connecting hardware with 
four 100 pin edge connectors. Assembled. 

BETSI kit SI 05 

Power Supply for BETSI S34 

8 volt/6 amp. Assembled in case 

S-100 8K Static RAM (Problem Solver Systems) Si50 

Assembled, tested, and burned-in at factory 

120 day warranty PERFECT FOR BETSI 

S-100 8K Static RAM kit Si 29 

Includes all sockets and 250ns 21L02's 


Ba sic Command Abbreviations 

C.W. Hcnnig of University of Waterloo found two letter entry 
codes for most of the Commodore BASIC commands. Generally, the 
entry abbreviations consist of the first letter of the command followed 
by the shifted second letter i.e. Go is GOTO, Pr is PRINT 1, Ve is 
VERIFY, Sp is SPC(, etc. If you are not in the lower case mode 
(POKE 59468,14) you will see the graphic character associated with 
the shifted entry of the letter rather than the lower case lottor itself 
(1/ instead of In for INPUT*). In cither cos© when you LIST, you will 
see the unabbreviated BASIC word, just as ? expands to PRINT. 

Mr. Neil Harris carried Carl Hennig's discovery a step further by 
finding several 3 character entry abbreviations for some of the BASIC 
words not having 2 character entries. 


Commodore BASIC Abbreviations 


S-100 8K Static RAM 
250ns - Assembled 

Protect-A-PET 

Custom fitted cleor vinyl dust cover with 
quality stitched seams for those rare 
occasions when you're away from your PET 

******* ■**•** 

PET PROCRAMS ON CASSETTE 

ABTAPE1 includes Life, Biorythm, Othello, 
AAistermind 11, Multiprimer (math tutorial- 
deduction gome), ond Klingon Capture 

KITES — A new, unique two player game by 
Michael Riley. Try to cut your opponent's 
kite string. With a nice version of NIM. 

*********** 


The Little Book of BASIC Style: how to write a 
program you can read. Emphasizes style in 
BASIC. 

6503 Programming and Hardware Manuals 
The 6500 Programming Manual is 
indispensable if you are interested in 
Machine Language programming. 

Hewlett-Packard IEEE-488 condensed description 
of Interface Bus 


5159 

Command/ 

Statement 

Abbreviation 

Command/ 

Statement 

Abbreviation 

S14 

LET 

Le 

NOT 

No 


READ 

Re 

RUN 

Ru 


PRINT 

? 

CLR 

Cl 


DATA 

Da 

LIST 

Li 


THEN 

Th 

CONT 

Co 


FOR 

Fo 

FRE 

Fr 


NEXT 

Ne 

TAB( 

Ta 


DIM 

Di 

SPC( 

Sp 

S8 

END 

En 

PEEK 

Pe 


GOTO 

Go 

POKE 

Po 


RESTORE 

REs 

USR 

Us 


GET 

Ge 

SYS 

Sy 

57.95 

GOSUB 

GOs 

WAIT 

Wa 


DEF 

De 

LEFTS 

LEf 


RETURN 

REt 

RIGHTS 

Ri 


STOP 

St 

MIDS 

Mi 


STEP 

STe 

CHRS 

Ch 


SGN 

Sg 

ASC 

As 

55.95 

ABS 

Ab 

VAL 

Va 


SQR 

Sq 

STR$ 

STr 


RND 

Rn 

OPEN 

Op 


SIN 

Si 

CLOSE 

CLo 

S6 each 

COS 

Co 

SAVE 

Sa 


TAN 

To 

LOAD 

Lo 


ATN 

At 

VERIFY 

Ve 


LOG 

Lo 

PRI NT* 

Pr 


EXP 

Ex 

INPUT* 

In 

$1.50 

AND 

An 

CMD 

Cm 


Stimulating Simulations 55 

An interesting book containing 10 simulations 
written in BASIC with instructions and possible 


modifications included 
Cassette Topes 

C-10 (5 min/side) with plastic coses 12/S11 

C-30 (15 min/side) no cases 12/S10 

PET Second Cassette edge connector plug SI.70 

PET User Port or IEEE-488 port edge connector plug $2.00 

KIM 1 *219 


Write for list of KIM-1 and PET memory and accessories 


A B Computers poboxkm 

Perkasie, PA 18944 
(215) 257-8195 


»* *»*»*-» ********** * **** 4 ********** 4 4 44 4 

INPUT Without Data 

In response to some of the questions on hitting. RETURN without 
data being entered and having control return to the operating system 
try one of these: 

100 OPEN 1,0, 1 

200 INPUT*1,ASrPRINT 

300 IF A$="" GOTO 200 

If you hit return with no data, a null value is returned. 

100 OPEN 1,0,1 
200 INPUTS A:PRINT 

In this example, return with no data enters 0. You can still 
return to the operating system if you enter non-numeric data (BAD 

DATA ERROR). 

100 INPUT "ENTER VALUEfeM* V:lclcl":AS 
200 IF AS=" " THEN PRINT "cucu": GOTO 100 
This method prints a character (in this case the shifted question 
mark) and then places the cursor on that character ready for input. 

If return without data, then you will go back for another try. 
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Yes!- It's hard to believe. The PET-2001, 
a full fledged computer by Commodore. 

\ What do you get? Full ASCII keyboard, 
9-inch CRT and a tape cassette all in one 
lightweight unit. Fully programmable 
in extended BASIC (20% faster than 
most other BASICs). 

14k ROM (Read Only Memory). 
8K RAM (Random Access Memory). 
Expandable to 32K. PET's very own 
■J graphic instruction set. 

/ For HOME/OFFICE/GAMES $795 (8K) 
Portable, Affordable, and Unbelievable. 


ONLY $795 


MORTGAGE ($15.95) Thi^program calculates mortgage information when provided with ceitain basic 
data. Calculated information includes: Principal paid to date; Interest paid to date; Total of Payments 
paid to date; Outstanding principal and interest; Total payments remaining; Mortgage equity. Interest 
and principal breakdown for any month. CHECKBOOK ($15,951 A cash receipts and disbursements 
program that will make it o broozc to koop accounts and up to date records. Chocks can be searched and 
sorted by type. eg., medical, legal, tax-deductible, rent. food. etc. FINANCE (12.95) A variety of 
useful financial formulas in one simple easy to use program. Includes: Compound interest. Discounts. 
Nominal ond effective interest; Annuities; Loans; Depreciation .Earned interest and much more. 
ANNUAL REPORT ANALYZER ($22.95) With Annual Report in hand, you input revenue and 
income figures for previous five years (estimated earnings, too, if you wish) as well as basic Balance 
Sheet data. This Street Ware program computes: Percentage year-to-year growth in sales, profits, and 
earnings per share; Average earnings per share and compound earnings per share over 5 years; PE 
Ratio; Profit margin for previous 5 years, with a graphic display that plots revenues against profit 
margins; Current ratio; Book value, Return on equity; Debt to equity ratio ; Payout ratio; Dividend 
yield; Implied growth rate; Implied total return; Theoretical PE ratio; Theoretical value for stock. 
STOCK ANALYZER ($34.95) This tape includes a copy of ANNUAL REPORT ANALYZER on 
reverse side. The program is essentially the same except that data is automatically read from Data Base 
tapes simply by entering ticker symbols. DATA BASE (Updated monthly; total of 12 tapes per yearl 


This fantastic low cost Business System utilizes the power of 
the PET-2001 Model 8K Computer along with the Brand 
New PET 120 cps Impact Printer (makes 4-5 copies) and an 
additional Digitally Controlled Tape Drive —for about 
$1500 Accounts Receivable and Inventory Control software 
is available for the Pet Business System! 


BUSINESS SYSTEM 


PET to RS-232 interface— PET to telephone coupler— PET to S-100 Interface— PET to Large Video Screen 
PET High Speed Printer- PET Tape Drive- PET Music Synthesizer and more . . 


THE COMPUTER FACTORY 

790 MADISON AVENUE, NEW YORK, NY 10021 
(212) 249-1666 or (212) PET 2001 T-F 10 6 Sat. 10-4 


LEASING AVAILABLE 








EDGE CONNECTORS 


for the 



PET 

interface with the 
outside world 

2nd CASSETTE INTERFACE - - $2.50 

IEEE-488 INTERFACE-$3-50 

PARALLEL USER PORT - - - - $3-50 

postpaid from 

RI00 ENTERPRISES 
8J Lakeside Drive 
Ledyard, CT 06339 


off-the-shelf delivery 




Day of Week Routine 

Earl H. Wuchter Catasauqua, PA 

This routine will return the day of week for any given day from 
Mar 1, 1900 through Feb 29 , 2000, and can be expanded to work for 
ony date. The routinedoes not destroy the dote, and may be used as 
o subroutine after the WDS array is initialized. 

10 REM INITIALIZE ARRAY 
12 DIM WD$(6) 

14 DATA "SUN","MON", "TUE", "WED‘ ,'’THU", "FRI", "SAT" 

16 FOR J=0 TO 6: READ WDS(J): NEXT 
18 REM INPUT DATE 

20 PRINF’ENTER MONTH, DAY, YEAR";: INPUT MN, DY,YR 
22 REM WEEKDAY PGM BEGINS HERE. MAY BE A SUB 
24 REM ADJUST YEAR TO BEGIN ON MAR I 
26 CY-YR:M-MN-2 
28 IF M<1 THEN M-M+12: CY+CY-1 
30 Y=CY-INt(CY/!00)*100: REA4 Y=LAST TWO DIGITS 
32 REM C=l NT(CY/100) WHEN USING EXPANDED PGM 
34 REM WD=(Y-Y/4+C/4-2*C+DY+(2.6*M-. 2))MOD7 
36 WD-Y+1 NT(Y/4J+1+DY+1 NT(2.6 * M-. 1999 ) 

38 WD--WD-INT(V/D/7)*7 
40 PRINT WD$(WD); 

Program notes: 

REM line 34 shows (2.6*M-.2) 

Code line 36 uses (2.6‘M-. 1999) 

.2 is correct, but something less must be used because of the internal 
floating point roundoff. 

REM line shows +C/4-2’C 
Code I ine uses +1 

For the years covered by this version, C is always equal to 19. 

INT(19/4)-2* 19=-34 -34 MOD7=+l 

This simplifies the MOD function on line 38 by getting rid of the 
negative number. To expand the pgm for any yecr, break the year 
info C and Y after it is adjusted to begin on Mar 1. You will need 
a routine then (to replace line 38) that will handle negative numbers. 


LIFE for the PET 

Frank Covitz Lebanon, New Jersey 

Since this is the first time I have attempted to set down a machine 
language program for the public eye, I will attempt to be as complete 
as practical without overdoing,it. 

The programs I will document here are concerned with the game 
of LIFE, and are written in 6502 machine language specifically for 
the PET 2001 (8K version). The principles apply to ony 6502 system 
with graphic display capability, and can be debugged (as I did) on 
non-graphic systems such as the KIM-1. 

The first I heard of LIFE was in Martin Gardner's ‘'Recreational 
Mathematics" section in Scientific American, Oct, Nov 1970, Feb 
1971. As | understand if, the gome was Invented by John H. Conway, 
an English mathematician. In brief, LIFE Isa "cellular automation" 
scheme, where the arena is a rectangular grid (ideally of infinite 
size). Each square in the grid Is either occupied or unoccupied with 
"seeds", the fate of which are governed by relatively simple rules, 
i.e. the "facts of LIFE". The rules are: 1 . A seed survives to the 
next generation if and only if it has two or three neighbors (right, 
left, up, down, and the four diagonally adjacent cells) otherwise 
it dies of loneliness or overcrowding, as the case moy be. 2. A seed 
is born in a vacant cell on the next generation if it has exactly 3 
neighbors. 

With these simple rules, a surprisingly rich game results. The 
original Scientific American article, and several subsequent articles 
reveal many curious and surprising initial patterns and results. I 
understand that there even has been formed a LIFE group, complete 
with newsletter, although I have not personally seen it. 

The game can of course be ployed manually on a piece of graph 
paper, but it is slow and prone to mistakes, which have usually dis¬ 
astrous effects on the final results. It would seem to be the ideal 
thing to put to a microprocessor with bare-bones graphics, since the 
rules arc so simple and there are essentially no arithmetic operations 
involved, except for keeping track of addresses and locating neighbors. 

As you know, the PET-2001 has an excellent BASIC interpreter, 
but as yet very littl© documentation on machine language operation. 

My first stab was to write a BASIC program, using the entire PET 
display as the arena (more about boundaries later), ond fhe filled 
circle graphic display characteras the seed. This worked just fine, 
except for one thing - it took about 2 1/2 minutes for the interpreter 
to go through one generation ! I suppose I shouldn't have been sur¬ 
prised since the program has to check 8 neighboring cells to determine 
the fate of a particular cell, and do this 1000 times to complete the 
entire generation (40x25 characters for the PET display). 

The program bolow is a 6502 version of LIFE written for the PET. 

It needs to bo POKE'd into the PET memory, since I have yet to sec 
or discover a machine language monitor for the PET. I did it with a 
simple BASIC program and many DATA statements (taking up much 
more of the program memory space than the actual machine language 
program!). A routine for assembling, ond saving on tape machine 
language programs on the PET is sorely needed. 

the program is accessed by the SYS command, and takes advantage 
of the display monitor (cursor control) for inserting seeds, and clearing 
the arcnc. Without a serious attempt at maximizing for speed, the 
program *akcs about 1/2 second to go through an entire generation, 
about 300 times faster than the BASIC equivalent I Enough said about 
the efficiency of machine language programming versus BASIC inter¬ 
preters? BASIC is great for number crunching, where you can quickly 
compose your program and have plenty of time to await the results. 

Proerim) - L7PB 40"25 


Adar&afl 

Oo.code 

Dyt« 1,2 

Addr. 

Qp- 

11 

B2 

CorurentB 

MAIN 

PHP 

PHA 

TXA 

1900 

03 

48 

3A 

Save A,X,Y,3 


PHA 

TYA 

PHA 

1903 

43 

93 

45 



TSX 

TXA 

PHA 

1906 

BA 

8A 

48 



CLO 



1909 

D9 



Clear dec. mode 


JSK 


1NIT 

190A 

20 

30 

19 



.ISR 


SCR-TKVP 

i9on 

20 

8A 

19 


sen 

JSR 


TEMP-HCS 

1910 

20 

EG 

19 



JSH 


GENES 

1913 

20 

00 

1A 



JSR 


"EMP-SCR 

1916 

20 

70 

19 



INC* 


Times 

1919 

EG 

36 


Repeat 255 tinea 


BNB 


CBN 

191B 

DO 

F3 


before quitting 


PLA 

TAX 

TXS 

191D 

63 

AA 

9A 

Roetoro S,Y,X,A 


TLA 

TAX 

PLA 

1920 

63 

A6 

65 



TAX 

PLA 

PLP 

1923 

AA 

68 

28 



JMF 


BASIC0N 

1926 

4C 

SB 

C3 

Return to BASIC 


5 




Op.cod® 

Byt® 1.2 

Addr. 

Oo. 

m b? 

Comments 

INIT 

LDXir 

19 

1930 

A2 

19 

Read in 25(jec init. 

re£o 

LDAx 

Dota-1 

1932 

ED 

:*a 19 

values 


w* 

I^hcx 

m 

ft 

ip 

Store then in p. zero 


BNE 

LOAD 

1938 

TO 

P8 



RTS 


193A 

eo 




DATA 

ScrL ScrK 

Chi 

193B 


ChH ScrL 0 

SerV 9 

193E 


7eir.pL Tenpl! TenpL 0 

1941 


rempHo Up 
Right mr*. 

Down 

Ur 

1944 

1947 


01 Lr 

LI 

194A 


tl Scrlnotl 

3crl*»3*.l! 

194D 


RcsLo HcsHo 

Tap 

1950 


Time a 


1953 


TEMP-»Sl 

2R JSR 

RESTORE 

1970 

TOTS 

IDAiy 

Tempt 

1973 


BNE 

ONE 

1975 


LDAin 

mr 

ir 

1977 

1331 

CN2 

LDAin 

Slflec 

197D 


STAiy 

ScrL 

179F 

1981 

NEXT 

JSR 

NEXTADDR 


EEQ 

LOAD 

1984 


J3R 

R53T0RE 

1996 


RTS 


1989 


00 60 00 
15 oo ao 

00 IB 00 
IB D7 28 
01 PE 08 
D6 29 27 
00 E0 93 
00 15 00 

00 


20 

A6 19 

Get init. addresses 

B1 

26 

Fetch by to from T«mp 

DO 

06 

Eranch if / 0 

A9 

20 

The symbol for blank 

91 

20 

IXjop it to screen 

DO 

04 


A9 

51 

The "dot" syabol 

91 

20 

Eunp it to screen 

20 

BD 19 

Fetch next addr. 

PO 

ED 


20 

60 

A6 19 

Restore init addr's. 


SC3»TEMP 

JSR 

RESTORE 

198A 

20 

A6 19 

Get init. addresses 


IDAiy 

ScrL 

198D 

B1 

20 

Head data fr. screen 


CMP in 

8r 

196? 

C9 

51 

la it a "dot"? 


BEQ 

1991 

P0 

06 

branch if "dot" 


LDAin 

00 

1993 

A9 

CO 

Otherwise It's blank 


STAiy 

TempL 

1995 

91 

26 

Store it 


LE3 

NEXT 

1997 

PO 

04 

Uncord, branch 

ONE 

IDAira 

01 

1999 

A9 

01 

A "dot" *83 found 


STAiy 

7 CT.l'I 

199B 

91 

26 

Store it 

NEXT 

JSR 

NEXTADDR 

199D 

20 

BD 1$ 

Fetch next addr. 


BEQ 

IOAD 

19A0 

PO 

KB 



JSR 

RESTORE 

19*2 

20 

A6 19 

Restore init addr's 


RTS 


19A5 

60 




LDAin 

CO 

19A6 

A9 

00 

Zero A.I.Y 

TAX TAX 


19A8 

AA 

A8 


STAz 

ScrL 

19AA 

85 

20 

Initialize ScrL. 

ST At 

TerpL 

19AC 

85 

26 

TenpL.RcsL.scrK. 

ST A i 

ResL 

19AE 

85 

39 

TenpE.RcsH 

IDA* 

ScrH c 

19B0 

A5 

25 


ST At 

3cr!l 

19D2 

85 

21 


LDAt 

Tenpho 

19B4 

A5 

29 


STA* 

TaapH 

19B6 

85 

27 


LDAt 

Re ail o 

19B8 

A5 

36 


STAZ 

Resit 

19BA 

05 

3A 


RTS 


19BC 

60 




NEXTADDR 

INCr 

Tesipl 

19BD 

E6 

26 

Oct next low order 


INCz 

ScrL 

19BK 

E6 

20 

byte address 


INCt 

RcoL 

1901 

E6 

39 



1NX 


19C3 

E8 




CPXt 

ScriastL 

19C4 

E4 

33 

la it the last? 


BEQ 

PAGECH 

19C6 

PO 

0C 

Is it the last page? 


CPXira 

OO 

19C8 

E0 

00 

Tb it n pup** boundary? 


ENE 

LOAD 

19CA 

DO 

OE 

If no . then not‘done 


INCt 

lenpH 

19CC 

E6 

27 

Otherwise advance to 


INCt 

SerH 

19CE 

E6 

21 

next page 


INCt 

Real! 

19DO 

E6 

3A 



ENE 

LOAD 

19D2 

DO 

06 

Uncord, branch 

PAGECH 

LDAt 

ScrlantH 

19D4 

A5 

34 

Check Tor last 


CMPe 

SerH 

19D6 

C5 

21 

poire 


BEQ 

DONE 

19D8 

P0 

03 

If yes, then cone 

LOAD 

LDAin 

00 

19DA 

A9 

ao 

Return with A«0 


RTS 


19DC 

60 



DONE 

LDAin 

01 

19DD 

A9 

01 

Return with A-l 


PT3 


19DP 





?FMP*HCS JSR 

RESTORE 

19E6 

20 

A6 19 

Initialize addr*a 


LDAly 

Tempi 

19E9 

B1 

26 

Fetch data from Tenp 


BNE 

ONE 

19EB 

DO 

06 

If / 0. then it'B allv® 


LDAin 

32dec 

1 “ED 

A9 

20 

The symbol for blank 


STAiy 

RcsL 

19EP 

91 

39 

Store it in screen copy 


BNE 

NEXTADDR 

19?1 

no 

C4 

Then on to next addr. 

ONE 

LDAlc 

8ldee 

19F3 

A9 

51 

Th® "dot" eynbol 


STAiy 

RcsL 

1SP9 

91 

39 

Store it in screen copy 


BUSINESS SOFTWARE FOR YOUR 8 K PET 


BUSINESS GRAPHIC PACK I - Not a simple graphic 
program, buf a professional business program that 
labels axes, uses curve fitting regression (Nth or¬ 
der or geometric) for projection of trends and 
continuity, optional X axis = Time for date entry, 
dual graphic ability, and more. ^5 QO 

BUSINESS ANALYSIS - Developed by a Bank Cashier, 
this program allows detailed analysis for manage¬ 
ment in the areas of liquidity, profitability, lever¬ 
age and activity (ratio and trend) for financial 
planning decisions. qq 

CALCULATOR - For accountant-bookkeeper. Not 
only allows your PET to function as a calculator, 
but also includes lister (verifies and displays 
errors between two tape listings) and Matrix 
(which adds columns vertically and horizontally). 

. $ 10.00 


All Programs in BASIC and on Cassette 

SAWYER SOFTWARE 
828 Lewis, Rt. 3 
Dexter, MO 63841 


SCHEDULE PLANNER - Perfect for the busy business 
man. Input date, descriptions, priority and 
deadline date, program sorts and lists most impor¬ 
tant jobs to be done. With clock subroutine 
alerts operator to appointments. Also records data. 

. $15.00 

SCHEDULE PLANNER #2 - Same as above, but for 
the secretary who must keep appointments of 
several persons. Will also list daily appointments 
and priorities. . $ 20.00 

ACCOUNTING PACK I - Includes General Ledger, 
Check Journal, Income Statement, Balance Sheet 
and more. For Home or Small Business use. Up 
to 40 accounts - Up to 50 different entries per 
month. $25.00 

FINANCIAL PACK I - Includes Amortization Sche¬ 
dule, Calendar (figures days between two dates), 
Rebate, Compound, Annuities and Monthly Payment. 

. $15.00 

CHESSBOARD - Two players can play chess on your 
own PET graphic chessboard - displays each player's 
time and records moves for future playback. 

. $ 10.00 
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PET SOFTWARE 


Addr... Op .c«lp By*. 1 ■_? fp- *‘.52 

DEXtADOft JSR XEK7A9IW 19P7 30 nil 19 ?«teh r»»t nlOr. 

650 10AD 1?PA BO EC If A-C. th.n rot <ton» 

JSlt SE3703E 19PC SO A4 19 Fastoro lnit. nAdr'n 

nrs 19PP to 


J3S 
JSfi 
:.3*1 T 
• 

HBO 
LOAz 
CKI'i s 
ass 

LDAla 

SJAiy 


leal. 

m3" 

S 

0? 

HEXTADtB 

01 

n ML 
SEX7ADDH 


DEATH 


COTi" 
me 

lOAlit 

sr*i 7 
Nsmon Jsp 
esc 
J8P 
nrs 


»«*Anrn 

ACAIW 


1*00 

20 

At IV 

1A0 J 

20 

28 1A 

not 

81 

2 ? 

nos 

19 

51 

UGA 

fa 

oc 

HOC 

A* 

42 

no: 

N 

01 

mo 

re 

14 

ill? 

A0 

01 

Ul< 

91 

26 

INS 

CO 

AS 

or 

3* 

UlA 

f‘* 

0 } 

1110 

fO 

08 

Hi* 

£9 

OJ 

1*80 

to 

04 

1*82 

A9 

00 

1»3A 

‘1 

26 

1476 

30 

ra is 


JO 

DS 

1A7B 


A* le 

1A7E 

to 



ir.vtKliie oaor'* 

8«tch # of neigntoro 
8ctch current d»ta 
:b it u -d»t"? 

:: ye*, tnen trines 
Ctner*ine it'» Mask 
ml nr nee! to eteek 
for o birts 
It fi-iea birth! 

Star* It In ?*op 
I'nrenl. t ranch 
Patch # tf r»ueh\ara 
:e it hni 1 or 2 
rcrhVori. it mrvivoi 


:t died! 

Stir* tt In ?esp 
Patch nert nddres» 

If - 0. thor rot dip* 
Pastor* lmt. alrir'n 


ynas 


orro 


* 01 ) 


SXAH 

BEX? 


r-.iA 


U3» 

48 



LDYio 

00 

»*33 

AO 

00 

s*t r -n4-ir.- o 

SfYx 

» 

1*35 

64 

3? 


SOXio 

08 

1*37 

A? 

06 

Chock 8 i.lftiion 

LDAii 

orr»ot-i 

1*39 

»5 

29 

Pcteh off e.t 4 at a 

on 

AM 

1*30 

10 

15 

Ad4 if offset io poo. 

BOX in 

rr 

lA’D 

49 

PP 

Otk«r-lQ» <••« «•< io 

wTAS 

nv 

I*:r 

s 2 

i' 

subtract 

sec 


1*41 

JO 



U'AZ 

Kent 

1*42 

*5 

39 


SBC* 

ST AS 

zz 

1*4 4 
1*46 

- ■ 

85 

38 

22 

Subtract to *•t tha 

corroct rrcl/hbor 

Lllit 

HcaX 

1*48 

*5 

3* 

adlrooc 

STtZ 

cm 

1*4 A 

85 

23 


tO 

SXAJI 

1*4 C 

DO 

11 

OK, find out *li«t*a 

DECS 

cm 

1*4 & 

C6 

23 

?a>* ctoaa. Man 

BSfc 

SAAB 

1*70 

90 

09 

Uj~. trancl. 

CLC 


1*32 

18 


flat not to Ujo 

ADCS 

SCBl. 

1*53 

65 

39 

Add 

STAS 

CM 

1*33 

85 

22 

Store tlio Ion part 

IDAz 

scan 

1*37 

A3 

3* 

retch the !)lc« p*ri 

STAz 

cm 

1*59 

85 

21 

Store it 

BCC 

SIAX 

1A5B 

90 

02 

OK, nr.Bt'n thtra 

IKCz 

cm 

1A3W 

it 

21 

crooning 

LDAiy 

CM. 

1A5J* 

81 

22 

.'•ten tn* net<hcor 

(Win 

31d*e 

1AM 

S3 

51 

dotn 0>t«. nna ote 
if It's occupici 

PHK 

NEXT 

1A61 

1A65 

02 

IWCz 

X 

E6 

42 

locum la', a t of ntrs. 

CRT 


1A67 

CA 



PNF 

0823 

1*68 



Xot dor.* 

FLA TAX 

FU 

1A6* 

68 

A* 68 

»eotor» X.r froz Btai 

TAT P?S 


1A6I1 

*8 

69 



AMORTIZATION -compute your finances.$6 

BIORHYTHM-plotted before your eyes.§7 

BLACKJACK-full graphics version.$7 

DEPTIICMARGE-seek out enemy subs.?7 

HANGMAN -spelling game for children.$8 

MULTI PL I CAT ION-learn without tables.$7 

TIC-TAC-TOE-in three dimensions.$6 


All programs are on ready-to-load 
digital cassette for 8K PETS. They 
are documented and easily modified. 
20% discount on order of 3 or more. 
VISA/BA or MASTERCHARGE cards are 
accepted(include card# and expir.). 
Postage paid in U.S. 

ABACUS SOFTWARE 
P.0. BOX 7211 
GRAND RAPIDS, Ml. 49510 


The program may be broken down into manageable chunks by sub- 
routining. There follows o brief description of the salient features of 
each section: 

MAIN (hex 1900) 

In a fit of overcaution (since this was the first time I attempted to 
writ© a P.E.T. machine language program) you will notice the series 
of pushes at the beginning and pulls at the end. I decided to save all 
the internal registers in the stack in page 1, and also included the 
CLD (clear decimal mode) just in case. Then follows a series of sub¬ 
routine calls to do the LIFE generation and display transfers. Notice 
that the all-capital symbols refer to specifically labelled addresses, 
and the first letter capitalized symbols refer to zero page locations. 
The zero page location. Times, is o counter to permit several loops 
through LIFE before returning. As set up, Times is initialized to zero 
(hex location 1953), so that it will loop 256 times before jumping back 
This of course can be changed either initially or while in BASIC via 
the POKE command. The return via JMP BAS ICON (4C 8B C3) may 
not be strickly orthodox, but it seems to v/ork OK. 

I NIT (hex 1930) and DATA (hex 193B) 

This shorty reads in the constants needed, and stores them in page 
zero. Scr refers to the PET screen. Temp is a temporary working area 
to hold the new generation as it is evolved, and Res is essentially o 
copy of the PET screen data, which I found to be necessary to avoid 
"snow" on the screen during the read/write operations directly on the 
screen locations. Up, Down/ etc. are the offsets to be added or sub¬ 
tracted from an address to got all the neighbor oddresses. The obser¬ 
vant reader will note the gap in the addresses between some of the 
routines. 


TSS 

TOTAL INFORMATION SERVICES 

P. O. Box 921 

Los Alamos, NM 87544 


*** HELP AT LAST *** 


TIS has writeups and software 
to help you use your PET. 

WORKBOOKS 


Getting Started 
Strings and Arrays 
Graphics 


$4.00 

5.95 

4.95 


For a FREE flyer on these and 
other products send a SASE. 











TEMP-*SCR (hex 1970) 

This subroutine quickly transfers the contents of Temp and dumps 
it to the screen, using a dot (Bl c j ec ) symbol fore live cell (a 1 in 
Temp) and a space (32dec) for the absence of a live cell (a 0 in Temp). 

SC R - * TEMP (hex 198A) 

This is the inverse of TEMP-^SCR, quickly transfering (and encod¬ 
ing) data from the screen into Temp. 

RESTORE (hex 19A6) 

This subroutine fetches the initial addresses (high and low) for the 
Scr, Temp, and Res memory spaces. 

NEXTADDR (hex 19BD) 

Since we are dealing with 1000 bytes of data, we need o routine 
to increment to the next location, check for page crossing (adding 
1 to the high address when it occurs), and checking for the end. The 
end is signaled by returning a 01 in the accumulator, otherwise a 00 
is returned via the accumulator. 

TEMP* RCS (hex 19E6) 

The Res address space is a copy of the screen, used as mentioned 
before to avoid constant "snow" on the screen if the screen were 
being continually accessed. This subroutine dumps data from Temp, 
where the new generation has been computed, to Res. 

GEN (hex 1A00) 

We finally arrive at a subroutine where LIFE is actually generated. 
After finding out the number of neighbors of the current Res dafo byte 
from NBRS, GEN checks for births (CMPim 03 at hex addr. 1A0E) if 
the cell was previously unoccupied. If a birth does not occur, there 
is an immediate branch to NEXTADDR (the data byte remains 00). 

If the cell was occupied (CMPim 81dec at hex 1A08), GEN checks 
for survival (CMPim 03 at hex 1A1A arxiCMPirn 02 at hex 1A1E), 
branching to NEXTADDR when these two conditions are met, other¬ 
wise the cell dies (LDAim 00 at hex IA22). The results arc stored in 
Temp for the 1000 cells. 

NBRS (hex 1A2F) 

NBRS is the subroutine that really does most of the work and where 
most of the speed could be gained by more efficient programming. 

Its job, to find the total number of occupied neighbors of a given Res 
data location, is complicated by page crossing and edge boundaries. 

In the present version, page crossing is taken care of, but edge boun¬ 
daries (left, right, top, and bottom of the screen) are somewhat 
"strange". Above the top line and below the bottom line are consi¬ 
dered as sort o^ forbidden regions where there should practically 
always be no "life" (data in those regions are not defined by the 

E agram), bur I have found that there has never been a case v/here 81 's 
ve been present (all other data is considered as "unoccupied char¬ 
acters) . The right and left edges are different, however, and lead to 
a special type of "geometry" . A cell at either edge is not considered 
as special by NBRS, and so to the right of the right-edae location is 
the next sequential address. On the screen this is really the left edge 
location, and one line lower . The inverse is true, of course for left 
addresses of left-edge locations. Topologically, this is equivalent to 
a "helix". No special effects of this are seen during a simple LIFE 
evolution, since If just gives the impression of disaopearing off one 
edge while appearing on the other edge. For an object like the 
"spaceship" (see Sci. Am articles), then, the path eventually would 
cover the whole LIFE arena. The fun comes in when a configuration 
spreads out so much that it spills over both edges, and interacts with 
itself. Tills, of course cannot happen in the infinite universe, sc that 
some of the more complex patterns will not have the same fate in the 
present version of LIFE. Most of tlx* "blinkers", including the ’gli¬ 
der gun" corre out OK. 

This 40x25 version of LIFE can undoubtedly be made more efficient, 
and other edge algorithms could bo found, but I chose to leave it in 
its original form as o benchmark for my first successfully executed 
program in writing machine languoge on the PET. One confession, 
however - I used the KIM-1 to debug most of the subroutines. Almost 
all of them did not run on the first shot! Without a good understanding 
of PcT memory allocation particularly in page zero I was bound to 
crash many times over, with no recovery other than pulling the plug. 

The actual BASIC program consisted of a POKING loop with meny 
DATA statements (always save on tape before running)). 

(ed. note: Frank Covitz also sent a 64x64 version of LIFE which 
v/e will be printing next issue. Frank had ro wade through deci¬ 
phering PET structure with no machine language monitor. He said 
ne might do this version of LIFE differently if he had to do it over, 
but regardless, many thanks to him. I think the resulting program 
is extremely good. | 


LIFE by Frank Covitz 
5 AO-645 9 

10 FOR 1=0 TO 307: READ A%:POKE A0<l,A%: NEXT I 
20 RESTORE 

30 PRINT "CLEAR SCREEN, THEN ENTER LIFE SEEDS (•), 
THEN ’HOME'/GOTO KXT’tEND 
100 POKE l,59:POKE 2,25 
110 X=USR(0) 

120 GET C$ 

130 IF C$="S" THEN END 
MO POKE 1,66 
150 GOTO 110 

6459 DATA 216,32,76,25,32, 138,25 
6466 DATA 32,230,25,32,0,26,32,112,25,96 
6476 DATA 162,25,189,36,25,149,31,202 
6484 DATA 208,248,96,0,128,0,21,0 
6492 DATA 128,0,27,0,27,215,40,1 
6500 DATA 254,216,214,41,39,0,232,131 
6508 DATA 0,21,0,0 
6512 DATA 32,166,25,177,38,208,6,169 
6520 DATA 32, 145,32, 208,4, 169,81,145 
6528 DATA 32,32,189,25, 240,237,32,166 
6536 DATA 25,96,32,166,25,177,32,201 
6544 DATA 81,240,6,169,0,145,38,240 
6552 DATA 4,169,1,145,38,32,189,25 
6560 DATA 240,235,32, 166,25,96, 169,0 
6568 DATA 170,168,133,32,133,38,133,57 
6576 DATA 165,37,133,33,165,41,133,39 
6584 DATA 165,54,133,58,96,230,38,230,32,230 
6592 DATA 57,232,228.51,240,12,224,0,208,14 
6600 DATA 230,39,230,33,230,58,208,6,165,52 
6608 DATA 197,33,240,3,169,0,96,169 
6616 DATA 1,96,234,234,234,234,234,234 
6624 DATA 32, 166,25,177,38,208,6, 169 
6632 DATA 32, 145,57,208,4,169,81, 145 
6640 DATA 57,32, 189,25,240,737,32, 166 
6648 DATA 25,96 

6656 DATA 32, 166,25,32,47,26.177,57 
6664 DATA 201,81,240,12,165,50,201,3 
6672 DATA 208,20,169,1,145,38,208,14 
6680 DATA 165,50,201,3,240,8,201,2 
6688 DATA 240,4,169,0,145,38,32, 189 
6696 DATA 25,240,216,32,166,25,96,152 
670^ DATA 72, 138,72,160,0,132,50, 162 
6712 DATA 8,181,41,16,21,73,255, 133 
6720 DATA 55,56,165,57,229,55,133,34 
6728 DATA 165,58,133,35,176,17,198,35 
6736 DATA 208,13,24,101,57,133,34,165 
6744 DATA 58, 133,35,144,2,230,35,177 
6752 DATA 34,201,81,208, 2, 230,50,202 
6760 DATA 208,207, 104, 170, 104, 168,96 

life seeds are shift Q 




.•*«******• 
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PET Machine Language Programming 
Raynor Taylor Charleston, SC 

Try this little program 

10 FOR A=6400 TO 6409 
20 READ B 
30 POKE A,B 
40 NEXT A 
50 SYS (6400) 

60 DATA 162,0,138,157,80,129,232,208,249,96 
70 END 


Intrigued? Read on! 

By just looking at the program in BASIC, you can see that the ten 
data elements are read ard poked (written) into memory starting at 
decimal location 6400. These data elements make up a machine lan¬ 
guage subroutine that is executed by the statement in line 50. As 
you have probably already found out by running the BASIC program, 
the machino language subroutine causes all the printable characters 
to appear about half way down on the screen. 

Below is a translation of the ten data elements into an easily read 
English-type format. 


Step Address in 

Memory Base 16 


Instruction 
Codes Base 16 


Mnemonic Addressing 
Mode 


$1900 

A2 00 

LDX 

*$00 

$1902 

8A 

LP TXA 


$1903 

9D 50 8I 

STA 

$8150, X 

$1906 

E8 

INX 


$1907 

DO F9 

BNE 

LP 

$1909 

60 

RTS 



The 6502 microprocessor in the PET, located at coordinates F-3 
on the main board inside, basically has three registers -- A, X, Y. 
This program makes use of two, the A and X. Going through the 
program step by step, this is whot happens: 


Step Effect 

*1 Load zero into the X register 
*2 Transfer X to A 

*3 Store A at location S8150+X (loc. $8150 is the eight line 
on the screen 

*4 Add one to the X register 

*5 Jump to step '*2 if X does NOT equal zero (the X register 

starts all over at zero once the value of 256 is reached - 
thus this loop is repeated 256 times) 

*6 Return to BASIC program 

This machine language program uses only six of the 6502's 
148 instructions. The six step program is also very small compared to 
the approximately 7000 step program in the PET's permanent memory. 
Nevertheless, the only way to learn about the PET's true brain is to 
write and experiment with small programs. A very helpful tool in 
writing machine language programs is the monitor. The monitor ac¬ 
cepts your input, changes it into a computer readable form, and 
changes the computer^ jibberish into the clear format illustrated above. 
You may find that some of your programs bomb — that is just don't 
work and cause the computer to crash (go crazy) — but don't worry, 
it happens to the best of us. 

fed. note: Raynor Tavlor's program notes provide a good starting 
point if you haven't keen exposed to machine language programming. 
His machine language program uses the X register as a counter, as 
on offset to determine the address in screen memory where the 
character will be stored, and as the character value itself. In step 
*5 the branch uses a relative address of -7 (1909-1902), or F9 in 
single byte 2 complement mode. 

In the BASIC program, lines 10 through 30 store the DATA 
values in hexadecimal locations 1900 to 1909 (6400 to 6409 deci¬ 
mal). The program then branches to 6400 with the SYS(6400). 

The machine language routine executes and returns to the calling 
program. An approximate BASIC equivalent subroutine would be: 

1000 1=0 

1100 POKE 33104+1,1 
1200 1 = 1+1 

1300 IF I <256 GOTO 1100 
1400 RETURN 


In Raynor's DATA statement line 60, he first had to convert the 
values in locations 1900 through 1909 to their decimal equivalent 
to obtain the data elements. To make this task easier, he has 
written a machine language monitor which he is selling for $7.50 
along with some sample programs (biorythm, pi calculation, a 
target game, and two others) and complete documentation. Write 
him at Qtrs718, Charleston Naval Base, Charleston, SC 29408.1 

******** **************** ************* ********************* 


Notes from Chuck Stuart Dallas, TX 
PET Random Number Generator 

Some mention was made in the first issue of PET User Notes about 
problems associated with the Random Number Generator (RNG). One 
problem that I have noticed that was not mentioned is the fact that, 
on power-up, the RNG always returns the same sequence of Random 
Numbers when any positive integer seed is used . 

This becomes a problem when using the RNG in games and simula¬ 
tions because the sequence is predictable. For example, you come 
home each day after work, you turn your PET on and load in your 
favorite game, say Blackjack. It doesn't fake long to realize that 
the first two hands dealt are always the same. And if these hands 
are played the same each day, then the second hands, etc., will 
also be the same. 

Fortunately, by using the PET s Tl$ function, this predictability 
can be totally eliminated. The following line of code should be in¬ 
serted just prior to the line that generates the random number for 
your program: 

10 FOR 1=1 TO VAL(RIGHT$(TI$,2)):R=RND(I):NEXT I 
The odds against getting the same first number from power-up twice 
in a row are now 60 to 1. And the odds against getting the same first 
four cards in your favorite Blackjack game two days in a row are now 
28,561 to 1 . Your PET RNG will now generate truly random numbers, 
even just after power-up. 

Floating Dollar Sign 

Becouse of the leading space in front of any numeric character, 
some string manipulation is required in order to float a "$" or any¬ 
thing else just to the left of a number in the PET. The following 
routine can be used for this purpose. 

10 N-100 

20 PRINT "I WON"; : GOSUB 100: PRINT " AT THE RACES." 

30 END 

100 X-1: IF N<0 THEN X=0 

110 PRINT" $"+RIGHT$(STR$(N),LEN(STR$(N))-X); 

120 RETURN 

RUN 

I WON S100 AT THE RACES. 

Lines 100 through 120 float the dollar sign. 'X' is required because 
when a number is negative, o minus sign replaces the leading space. 

Aft******************** ******4A**H.***H***************** 

Using the IEEE Port os a General Purpose Port 
JR Kinnard Austin, TX 

I think that many PET owners will find as I have that a single 8 
bit user port is not satisfactory for many applications and that the 
IEEE-488 interface is too complex to use with home built hardware. 
Fortunately the IEEE port can be used very much like the User Port 
and has several advaratages. 

Data input to the IEEE DIO lines must be at TTL levels and is 
buffered into the 'A 1 side of an MCS6520 Peripheral Interface Adapter 
(PIA). Input data can be read from the DIO lines by a PEEK(59424). 
Data to be output on the DIO lines is buffered out of the '3' side of 
the PIA. A POKE 59426, Data will transfer the data to the port. 

The DIO lines have a current sinking capability of 48 MA - much 
more than the 1 .6 MA of the User Port. You must write all ones (255) 
into the output buffer before an input operation or a combination of 
input and output data will be road. 

Output lines CA2 and CB2 ore available from the PIA and are 
labeled NDAC and DAV, respectively, o' the IEEE port. CA2 can 
be set to a low level by a POKE 59425,52 or to a high level by 
POKE 59425,60. CB2 can ba controlled in the same way at address 
59427. 

Two other output lines on the IEEE port are PB1 and PB3 from the 
MCS6572 that drives the User Port. PB1 is labeled NRFD and PB3 is 
ATN on the IEEE connector. Outputs to these lines are bits land 3 
(values 2 ond 8) of the register at address 59456. 
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CONNECTICUT m icro COMPUTE R 



IX POCONO ROAD - BROOKFIELD, CONNECTICUT 06804 
(203) 775-9659 



i<S-232 PRINTER ADAPTER FO It THE COMMOffJRE PET 


Connecticut microComnuter announces the first In a line of 
peripheral adapters for the COMMODORE PET. The PET ADApter model 
1200 drives an R5-232 printer from the PET iEFE-488 bus. The 
PET ADA 1200 allows the PET owner to obtain hard copy program 
listings, and to tvpe letters, manuscripts, nailino labels, 
tables of data, etc., usino o standard RS-232 printer. 

Tho PET ADA model 1200 is available assembled and tested, 
without power supplies, case, or RS-232 connector Tor S98.50 (plus 
$5.00 ror shippinn and handling) or complete for $169 (plus $5.00 
for shipping end handling). Specify baud rate when ordering. (300 
baud is supplied unless otherwise renuested. Instructions for 
chengina baud rate are included.) 

This fiver was composed on the COMMODORE PET and printed 
on a GE Torminet 300 using PET ADA model 1200. 


Send lo*Connectleut nicroComputeriI 50 Pocono l<d?Brookf ield. CT 06804 


Qnty! Description !baud rate! price ! total 

! PET ADA 1200 (basic) ! ! $98.50 ! 

! PET ADA 1200 (complete) ! ! SI69.00 ! 

Subtotal ! 


Connecticut residents add 7% soles tax ! 

Handling and s hi oping - add per order ! $5.00 


Foreign air mall - add $5.00 per order ! 

Total enclosed ! $ 


Netne 

Address 


Cl tv. State 


?IP 


Charge my BAC/VlSA_MASTERCHARGE_Interbank No. 

Card No. ___ Ex P- Dafre _ 
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ASCII KEYBOARD TO FET INTERFACE 
PRICE $65 Fully Assembled and Checked, 
FEATURES: 

* Interface any ASCII encoded keyboard to the 
PET. 

* PET keyboard can be used simultaneously. 

* No modification to the PET necessary. 

* Auxiliary power +5V and -12V for your 
keyboard. 

* Jumper selectable for data stobe polarity. 

* All PET functions are implemented. 

* Recognize all upper case charactors, numeric 
and punctuations. (NO graphic or lower case) 

* One ribbon cable and one connector included. 

* 3.5" X 4" single sided PC board. 


TO ORDER 


PET TO S-1Q0 BUS CONVERTER 

PRICE $65 Fully Assembled and Checked. 

FEATURES: 

* Interface to most of the S-100 static RAM 
and FROM memory boards. 

* Interface to most of the i/O Controllers. 

* Standard S-100 board size. (4.6" X 10") 

* Provisions for memory protect of S-100 
boards and system reset. 

* Onboard voltage generators for +20 and 
-20 V DC. 

* Power upto 32K bytes of S-100 memory from 
PET power supply without external power 
supply. 

OPTION fi 1 - With 6 slot mother board. ADD $15 

OPTION #2 - With 6 slot mother board fully 

stuffed with connectors. ADD $68 


Wc accept checks, money order, VISA and MASTER CHARGE cards. Personal, checks will take 2 to 

3 weeks to clear. Please include $2 per item ordered for shipping and handling. Allow upto 

4 WEEKS for delivery. SEND FOR FREE SPECIFICATIONS and DETAILS. 


EXCEL COMPANY 

11 


2241 TAMALPAIS AVE. 

EL CERRITO CALIFORNIA 
94530 

TEL. (415)237-8114 





















PET Plays MUSIC 

Frank Alexander, 570 Jun-ata Ave., Swarthrrore, PA 19031 

JR Kinnard showed us how Io use ihe 6522 shift register fo make 
square waves with the PET. Well, once you have an audio oscillator 
you have the start of a music generator. 

The program MUSIC sots up the 6522 as an oscillator, takes a note 
from DATA statements, interprets it os a setting for repetition-rate 
command (POKE 59464, R), and holds that note until a timing loop 
is finished. 

You can take a piece of sheet music and write the DATA as'Date 
pairs, e.g. C^,2 is o quarter note; F,3 a dotted quarter; Z,0 a short 
rest; Z,8 a long rest; etc. 

All you need for output is a simple loudspeaker & buffer amplifier 
connected fo CB2 on the User Port of the PET. I used an ordinary 
tape recorder os o handy buffer. These are big signals, obout 4 volts. 
The amplifier protects the PET from inductive kick-bock at the ends 
of the sharp pulses from the 6522. 

10 POKE 59467,16: REM SET FREE-RUNNING 
12 INPUT "0(15,51,81...),T2(100)";D,T3 

14 T2-T3 

15 POKE 59466, D 

17 POKE 59464,0 

18 COSUB 6800 

20 READ RS,T 

22 PRINT R$\ .. "T" "D 
25 IF R$="XX" THEN GOTO 900 
30 GOSUB 10000 

40 GOSUB 6000 

90 GOTO 20 

499 REM MUSIC NOTES & TIME 

500 DATA Cl,2, B, 2, A, 2, G,2, F,2, E, 2 


582 DATA C,2,C*,2, D,2, D*,2, E,3,Z, 1 

584 DATA C, 1, D, 1, E, 1, F / 2,E,2,D, 2, C # , 2, C,2, C # ,2, D, 2, Z, 1 


599 DATA XX,0 

900 RESTORE 

901 TEST-TEST+l :T2=INT(T2*0.7) 

902 ON TEST GOSUB 100,101,102,103,104,105,106,108,109 

903 IF TEST> 9 THEN GOTO 14 

904 GOTO 15:REM ENDLESS VERSION 

908 REM .. RUN 909 TO CLEAR SHIFT REG 

909 PRINT PEEK(59467), "59467" 

990 POKE 59464,221 

995 POKE 59466,0 
999 POKE 59467.0:END 


PET User Group 
PO Box 371 

Montgomeryville, PA 18936 



6000 POKE 59464, R 

6005 IF T< 1 THEN GOTO6020 

6010 ON T GOTO 6100,6200,6300,6400,6600,6800,6900 

6020 FOR T 1=1 to 2: NEXT T1: RETURN 

6100 FOR T1 =1 TO T2: NEXT: RETURN 

6200 FOR Tl=l TO 2*T2:NEXT: RETURN 

6300 FORT1-1 TO 3*T2:NEXT: RETURN 

6400 FORT1-1 TO 4’T2:NEXT: RETURN 

6600 FOR Tl-1 TO 6’T2:NEXT: RETURN 

6800 FOR Tl-1 T0 8'T2.-NEXT; RETURN 

6900 FOR Tl-1 TO 12*T2:NEXT:RETURN 

6999 REM TONES,TIME SLB 



10000 REM INTERPRETER SECTION 
10010 IF R$="30" THEN R=251 
10020 IF R$="C" THEN R=237 
10030 IF R$="C # " THEN R=224 
10040 IF R5="D ’ THEN R—211 
10050 IF R$= ,, D*'" THEN R-199 
10060 IF R$="E" THEN R=188 
10070 IF RS-'T" THEN R-177 
10080 IF RS- 'F*" THEN RH67 
10090 IF RS="G" THEN R=157 
10100 IF R$="G # " THEN R=149 . 

10110 IF RS- 'A" THEN R-140 • 100 D\81 RETURN y 

10120 IF RS- ,, A* f " THEN R-132 101 0=36:RETURN 

10130 IF R$-"B" THEN R- 124 102 

10140 IF R$="C1" THEN R=117 103 0=15J*ETORrr ✓ 

10150 IF R$-“C1 # " THEN R~111 104 D=2tfRETy*N / 

10160 IF R$~"DI 1 THEN R—104 105 D=30:RETURN / 

10170 IF RS="DI*'" THEN R= 99 106 D^OiR^URiy / 

10180 IF RS="E1" THEN R= 93 107 D |50:RjfTURWJ / 

10190 IF R$="F1" THEN R=88 108 D-|5:REfURht / 

10200 IF R$="F1*" THEN R-83 109 D-/10:RETUftM / 

10210 IF RS—*'G1" THEN R-78 //II 

10220 IF R$~"G1 # " THEN R=73 /III 

10230 IF RS='A1" THEN R=69 //II 

10240 IF R$="Z" THEN R=0 / / / / 

10999 RETURN / / J 

fed. note: For background for this music program^fe.r terJR Kionard! 
article on generating sauare waves (volume 1, i«ue Fray's pr^ 
gram asks for inputs at line 12 to define the w afe ar/f the //cr<3\y 
song tempo. Frank's suggested values are 15,151, dr 85Jfcr D,y6nd 
100 for T2 (tempo). The program basically lodps (lines 30-90/ready 
ing the next note and duration pair from DAT4. stofemer/s beefinning 
at 500, and ending when "XX" is read to ind/cafe/song|end J Lines 
901-904 and 100-109 are used to vary the tone And / 

could be omitted if you desire. SO /y\ * 

If you want to pursue Frank's music program^ ha*^i'll seTr^^ofl.a 
cassette with sample songs, instruction sheet/anflo schemati<M6n 
a single transistor amplifier : or $5.| / xTm 
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